home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
qbsub10.arc
/
SIGNDMO.ASC
< prev
next >
Wrap
Text File
|
1986-06-25
|
2KB
|
58 lines
' SIGNDMO.ASC -- MSDOS QuickBASIC Sign subroutines test 25 June 86
' by David L. Poskie (608) 274-9560
' 7118 Raymond Rd. Madison, WI 53719
' Please run any suggestions, corrections, additions, or changes by me.
' I can be messaged on all the major Madison, WI RBBS's.
'| Signs are one-line windows.
'| 2 subroutines: Sign & SignCenter are in OMNI.SUB.
GOTO Start
Rem $Include: 'OMNI.SUB'
Start:
COLOR 14 , 3 ,8
CLS
' Print centered Text$, with top of sign frame on line 2
X = 2 'Set the starting line
FG = 15 'Set the color of Text$
BG = 4 'Set the background color
MG = 12 'Set the color of sign frame
KeyCode = 8 'Set ASCII code of sign frame
Text$ = "Sign Routine Demonstration" 'Name Text$
GOSUB SignCenter 'Do it
'Print Text$ at 10 , 60 = upper left corner of frame
X = 10 'Set the line
Y = 60 'Set the column
FG = 14 'Set the color of Text$
BG = 4 'Set the background color
MG = 15 'Set the color of sign frame
KeyCode = 254 'Set ASCII code of sign frame
Text$ = " Any string " 'Name Text$
GOSUB Sign 'Do it
'Note the only difference is we need to include Y (column)
'Print Text$ at 15 , 34
X = 15
Y = 34
FG = 5
BG = 7
MG = 13
KeyCode = 205
Text$ = " Any time "
GOSUB Sign
'Print Text$ at 20 , 5
X = 20
Y = 5
FG = 15
BG = 2
MG = 10
KeyCode = 186
Text$ = " Any place "
GOSUB Sign
SYSTEM
' >>>>> Physical EOF SIGNDMO.ASC 25 June 86